home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / sparkl35.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1994-09-25  |  8KB  |  265 lines
  1. echo off
  2. cls
  3. ::
  4. ::  --- Introduce ourselves using Option 4:  Big! Font ---
  5. ::
  6. Sparkle 4 1 13 12 220 /Welcome
  7. Sparkle 4 9 32 11 223 /To
  8. Sparkle 4 16 13 14 220 /Sparkle
  9. ::  --- A little music, compliments of Option 1:  Sound ---
  10. Sparkle 1 9
  11. ::
  12. ::  --- pause
  13. Sparkle 7 6
  14. ::  --- See if M-Menu.Com is here (The MAIN MENU for this demo) ---
  15. If Not Exist M-Menu2.Com goto _NoMain
  16. Goto MainMenu
  17. :_NoMain
  18. cls
  19. Sparkle 4 6 2 15 221 /Can't Find
  20. Sparkle 4 14 1 15 221 /M-Menu2.Com
  21. Sparkle 7 12
  22. goto _End
  23. :: ------------------------   Our Main Menu    ------------------------
  24. :MainMenu
  25. :: ------------------------   Our Main Menu    ------------------------
  26. cls
  27. :: ----- This is the original main menu; try them both
  28. :: m-menu
  29. :: Sparkle 2 5 5 5 76 15 2
  30. M-Menu2
  31. Sparkle 2 11 29 20 53 15 1
  32. cls
  33. If Errorlevel 27 goto _End
  34. If Errorlevel 5 goto _End
  35. If Errorlevel 4 goto _BarMenus
  36. If Errorlevel 3 goto _Sounds
  37. If Errorlevel 2 goto _Windows
  38. If Errorlevel 1 goto _Intro
  39. Goto MainMenu
  40. :: ------------------------
  41. :_Intro
  42. :: ------------------------
  43. cls
  44. ::  --- Display 2 "windows" using Option 6:  Window ---
  45. ::
  46. Sparkle 6 1 1 25 80 64 32 /
  47. Sparkle 6 3 4 22 76 112 -2 /This simple batch file demonstrates Sparkle's options.
  48. ::
  49. ::  --- Display text inside our window using Option 5:  QuikPrint ---
  50. ::
  51. Sparkle 5 5 13 112 /Sparkle offers many options to enhance batch files:
  52. Sparkle 5 7  18 112 /Scrolling Bar Menus (Vertical or Horizontal)
  53. Sparkle 5 9  18 112 /Sound Effects   (Over 35 of them)
  54. Sparkle 5 11 18 112 /Big! Font       (Like the "Welcome" screen)
  55. Sparkle 5 13 18 112 /QuikPrint       (Which prints these messages)
  56. Sparkle 5 15 18 112 /Window          (250+ styles; with or without a shadow)
  57. Sparkle 5 17 18 112 /Ask             (Prints the message below, gets response)
  58. Sparkle 5 19 18 112 /Pause           (Pause from 1\3 second to ???)
  59. Sparkle 5 21 18 112 /Monitor         (Determine what type monitor is active)
  60. Sparkle 3 24 25 112 / /── Press any key to continue ──
  61. echo off
  62. cls
  63. Sparkle 6 2 1 23 80 64 32 /
  64. Sparkle 6 4 4 20 76 112 -2 /Sparkle's Option #8:  Which type of Adapter\Monitor is active.
  65. sparkle 7 5
  66. sparkle 8 99
  67. If Errorlevel 3 goto PrtInColor
  68. :PrtInMono
  69. Sparkle 5 10 14 15 /  Sparkle reports that a MONOCHROME monitor is active.  
  70. Sparkle 5 12 14 15 /  Printing in a color viewable on MONOCHROME monitors.  
  71. goto endMonitor
  72. :PrtInColor
  73. Sparkle 5 10 14 78 /  Sparkle reports that a COLOR monitor is active.  
  74. Sparkle 5 12 14 78 /  Printing in a color viewable on COLOR monitors.  
  75. :endMonitor
  76. sparkle 7 12
  77. Goto MainMenu
  78. :: ------------------------
  79. :_Sounds
  80. :: ------------------------
  81. cls
  82. Sparkle 6 11 30 17 77 79 1 /Sound Effects
  83. Sparkle 5 13 37 79 /Here are a few of the many sound
  84. Sparkle 5 15 37 79 /effects that Sparkle offers you.
  85. echo on
  86. Sparkle 1 4
  87. Sparkle 1 5
  88. Sparkle 1 6
  89. Sparkle 1 7
  90. Sparkle 1 8
  91. Sparkle 1 9
  92. Sparkle 1 11
  93. Sparkle 1 12
  94. Sparkle 1 13
  95. Sparkle 1 14
  96. echo off
  97. Sparkle 3 24 1 112 / /── Press any key to continue ──
  98. cls
  99. Sparkle 6 10 30 17 77 79 1 /Or play sounds over & over.
  100. Sparkle 5 13 40 79 /Press a key to stop.  Or wait
  101. Sparkle 5 14 40 79 /until we do this 15 times.
  102. Sparkle 1 6 15
  103. cls
  104. Sparkle 6 11 30 17 77 79 1 /
  105. Sparkle 5 13 37 79 /Would you like to listen to the
  106. Sparkle 5 15 37 79 /William Tell Overture?  (Yes\No)
  107. Sparkle 3 24 28 112 /YN /── Press [Y]es or [N]o ──
  108. If Errorlevel 89 goto _WmTell
  109. Goto MainMenu
  110. :_WmTell
  111. Sparkle 1 99
  112. Goto MainMenu
  113. :: ------------------------
  114. :_Windows
  115. :: ------------------------
  116. echo off
  117. Cls
  118. Sparkle  6  1 1 25 80 27 1  /... This demonstrates Sparkle's very flexible WINDOW options ...
  119. Sparkle  6  3 4 5 24 112 1  / Frame Style # 1
  120. Sparkle  6  7 4 9 24 12 2   / Frame Style # 2
  121. Sparkle  6  11 4 13 24 116 3/ Frame Style # 3
  122. Sparkle  6  15 4 17 24 13 4 / Frame Style # 4
  123. Sparkle  6  19 4 22 24 26 -5 / Frame Style # 5
  124. Sparkle  6  3 55 5 77 112 254/Use any ASCII Char.
  125. Sparkle  6  7 55 9 77 12 21  / ASCII Char. #  21
  126. Sparkle  6  11 55 13 77 113 7 / ASCII Char. # 7
  127. Sparkle  6  15 55 17 77 13 240 / ASCII Char. # 240
  128. Sparkle  6  19 55 22 77 26 -15 / ASCII Char. #  15
  129. Sparkle  6  6 28 11 51 64 -32 / No Frame With Shadow
  130. Sparkle  6  15 28 20 51 64 32 / Or Without Shadows
  131. Sparkle 3 25 26 112 / /── Press any key to continue ──
  132. cls
  133. Sparkle -6  1  1 25 80  27 1 / Also enjoy Sparkle's EXPLODING windows 
  134. Sparkle -6  3  4 23 77 112 2 / Also enjoy Sparkle's EXPLODING windows 
  135. Sparkle -6  5  7 21 74  79 3 / Also enjoy Sparkle's EXPLODING windows 
  136. Sparkle -6  7 10 19 71  48 4 / Also enjoy Sparkle's EXPLODING windows 
  137. Sparkle -6  9 13 17 68 120 6 / Also enjoy Sparkle's EXPLODING windows 
  138. Sparkle -6 11 16 15 65  15 2 / Also enjoy Sparkle's EXPLODING windows 
  139. Sparkle 3 25 26 112 / /── Press any key to continue ──
  140. Goto MainMenu
  141. :: ------------------------
  142. :_BarMenus
  143. :: ------------------------
  144. cls
  145. Sparkle 6 1 1 10 80 27 1  /... Sparkle offers THREE types of menu options ...
  146. Sparkle 5 4 8 27 /Option 3 (ASK) lets you turn ANY screen (text OR graphics) into a menu.
  147. Sparkle 5 6 8 27 /Option 2 (BAR MENU) lets you turn almost any text screen into a:
  148. Sparkle 5 7 17 27 /- Vertical scrolling bar menu,   -or-
  149. Sparkle 5 8 17 27 /- Horizontal    "     "   "
  150. Sparkle 5 13 14 112 /── Here's an example of a menu using Option 3, ASK ──
  151. Sparkle 6 15 10 21 70 79 5  /Which of these ice cream flavors do you prefer?
  152. Sparkle 5 18 24 79 /Vanilla     --or--    Strawberry
  153. :: --- Use ASK to print a prompt, then accept only V or S
  154. Sparkle 3 21 25 112 /VS /Press   "V"   or   "S"    ── 
  155. Sparkle 5 18 22 240 /── Frankly, I prefer Chocolate !! ──
  156. Sparkle 7 12
  157. ::
  158. :_WindowQuikPrint
  159. cls
  160. ::  --- display Vertical Menu (a "Com" screen created by our P-Screen Screen Design) ---
  161. ::
  162. If Not Exist V-Menu.Com goto _NoVertical
  163. ::
  164. V-Menu
  165. Sparkle 2 4 51 16 73 14 1
  166. cls
  167. If Errorlevel 27 goto _vEscape
  168. If Errorlevel 5 goto _Num5
  169. If Errorlevel 4 goto _Num4
  170. If Errorlevel 3 goto _Num3
  171. If Errorlevel 2 goto _Num2
  172. If Errorlevel 1 goto _Num1
  173. goto _HorizontalMenu
  174. :_vEscape
  175. echo You pressed Escape . . . .
  176. goto _HorizontalMenu
  177. :_Num5
  178. echo You chose Quit (# 5)
  179. goto _HorizontalMenu
  180. :_Num4
  181. echo You chose dBase (# 4)
  182. goto _HorizontalMenu
  183. :_Num3
  184. echo You chose Paradox (# 3)
  185. goto _HorizontalMenu
  186. :_Num2
  187. echo You chose Quatro Pro (# 2)
  188. goto _HorizontalMenu
  189. :_Num1
  190. echo You chose WordPerfect (# 1)
  191. goto _HorizontalMenu
  192. :_NoVertical
  193. Sparkle 4 6 2 15 221 /Can't Find
  194. Sparkle 4 14 2 15 221 /V-Menu.Com
  195. :_HorizontalMenu
  196. Sparkle 7 12
  197. ::
  198. cls
  199. :: --- display a Horizontal Menu (another P-Screen "Com" screen) ---
  200. ::
  201. If Not Exist H-Menu.Com goto _NoHorizontal
  202. ::
  203. H-Menu
  204. Sparkle 2 13 6 13 74 112 0
  205. cls
  206. If Errorlevel 27 goto _HEscape
  207. If Errorlevel 6 goto _HNum6
  208. If Errorlevel 5 goto _HNum5
  209. If Errorlevel 4 goto _HNum4
  210. If Errorlevel 3 goto _HNum3
  211. If Errorlevel 2 goto _HNum2
  212. If Errorlevel 1 goto _HNum1
  213. :: goto _End
  214. Goto MainMenu
  215. :_HEscape
  216. echo You pressed Escape . . . .
  217. goto _HPause
  218. :_HNum6
  219. echo You chose to Quit (# 6)
  220. goto _HPause
  221. :_HNum5
  222. echo You chose DOS (# 5)
  223. goto _HPause
  224. :_HNum4
  225. echo You chose dBase (# 4)
  226. goto _HPause
  227. :_HNum3
  228. echo You chose Paradox (# 3)
  229. goto _HPause
  230. :_HNum2
  231. echo You chose WordPerfect (# 2)
  232. goto _HPause
  233. :_HNum1
  234. echo You chose Lotus (# 1)
  235. :: ------------------------
  236. :_HPause
  237. :: ------------------------
  238. Sparkle 7 6
  239. Goto MainMenu
  240. :_NoHorizontal
  241. Sparkle 4 6 2 15 221 /Can't Find
  242. Sparkle 4 14 2 15 221 /H-Menu.Com
  243. Sparkle 7 12
  244. :: ------------------------
  245. :_end
  246. :: ------------------------
  247. :demo1
  248. Sparkle 6 2 1 24 80 32 32 /
  249. Sparkle 6 4 4 21 75 78 -2 /  We hope you enjoy Sparkle!  
  250. Sparkle 6 6 8 19 71 112 32 /
  251. ::
  252. ::  --- Display text inside our window using Option 5:  QuikPrint ---
  253. ::
  254. Sparkle 5  8 13 112 /Remember, Sparkle is "user-supported" software.  If
  255. Sparkle 5  9 13 112 /you use it more than 10 - 15 times, please contribute
  256. Sparkle 5 10 13 112 /so that we're able to continue improving it.
  257. Sparkle 7 12
  258. Sparkle 5 12 13 112 /For more information on Sparkle or our other programs:
  259. Sparkle 5 14 18 112 /Write:    Pro~Formance
  260. Sparkle 5 15 28 112 /132 Alpine Terrace
  261. Sparkle 5 16 28 112 /San Francisco, CA  94117
  262. Sparkle 7 6
  263. Sparkle 5 18 18 112 /Or Call:  (415) 863-0530
  264. Sparkle 1 88
  265.